home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / Q-R / QDPat.cpt / Globals < prev    next >
Encoding:
Text File  |  1990-01-08  |  156 b   |  13 lines  |  [TEXT/PJMM]
  1. unit Globals;
  2.  
  3. interface
  4.  
  5.  
  6.     type
  7.         ShapeType = (rectangle, square, circle, triangle);
  8.     var
  9.         WhichShape: ShapeType;
  10.         NotInDA: boolean;
  11. implementation
  12.  
  13. end.